home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / SONG2.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  2KB  |  66 lines

  1. ' SONG2.BAS
  2. ' This program displays the lyrics of the folk song "Clementine."
  3.  
  4. DECLARE SUB Chorus ()   ' declare Chorus subprogram before use
  5.  
  6. CLS
  7. PRINT "------------------------- Clementine -------------------------"
  8. PRINT
  9.  
  10. PRINT "In a cavern, in a canyon,"          ' first verse
  11. PRINT "Excavating for a mine,"
  12. PRINT "Lived a miner, forty-niner,"
  13. PRINT "And his daughter, Clementine."
  14.  
  15. Chorus                                     ' call Chorus subprogram
  16.  
  17. PRINT "Light she was and like a fairy,"    ' second verse
  18. PRINT "And her shoes were number nine;"
  19. PRINT "Herring boxes without topses,"
  20. PRINT "Sandals were for Clementine."
  21.  
  22. Chorus                                     ' call Chorus subprogram
  23.  
  24. INPUT "Press Enter for more...", dummy$    ' pause screen
  25. PRINT
  26.  
  27. PRINT "Drove she ducklings to the water,"  ' third verse
  28. PRINT "Ev'ry morning just at nine;"
  29. PRINT "Hit her foot against a splinter,"
  30. PRINT "Fell into the foaming brine."
  31.  
  32. Chorus                                     ' call Chorus subprogram
  33.  
  34. PRINT "Ruby lips above the water,"         ' forth verse
  35. PRINT "Blowing bubbles soft and fine;"
  36. PRINT "But alas, he was no swimmer,"
  37. PRINT "So he lost his Clementine."
  38.  
  39. Chorus                                     ' call Chorus subprogram
  40.  
  41. INPUT "Press Enter for more...", dummy$    ' pause screen
  42. PRINT
  43.  
  44. PRINT "Then the miner, forty-niner,"       ' fifth verse
  45. PRINT "Soon began to peak and pine;"
  46. PRINT "Thought he oughter join his daughter,"
  47. PRINT "Now he's with his Clementine."
  48.  
  49. Chorus                                     ' call Chorus subprogram
  50.  
  51. END
  52.  
  53. SUB Chorus
  54.  
  55. ' The Chorus subprogram prints the chorus of the song "Clementine."
  56.  
  57. PRINT
  58. PRINT "Oh my darling, oh my darling,"      ' chorus
  59. PRINT "Oh my darling, Clementine,"
  60. PRINT "You are lost and gone forever,"
  61. PRINT "Dreadful sorry, Clementine."
  62. PRINT
  63.  
  64. END SUB
  65.  
  66.